<?php

/**
 * mailing actions.
 *
 * @package    ACATEC
 * @subpackage mailing
 * @author     Acalio Innova
 * @version    SVN: $Id: actions.class.php 23810 2009-11-12 11:07:44Z Kris.Wallsmith $
 */
class mailingActions extends sfActions
{
  public function executeIndex(sfWebRequest $request)
  {

  	$this->getUser()->setAttribute('current','mailing');

    /* Creamos la consulta para obtener el idempresa, como solo hay una cojo la primera.
     * no tengo en consideración que esté relacionado con el nombre de usuario    
     */
    $q = Doctrine_Query::create()
            ->select('id')
            ->from('Empresa id');          
    $empresa_id = $q->fetchOne(array(), Doctrine_Core::HYDRATE_ARRAY);
    
    // Y el resultado lo guardamos en la vble de sesión.
    $this->getUser()->setAttribute('empresa_id', $empresa_id['id']);

    // Definimos la cultura del usuario por defecto
    //$this->getUser()->setCulture(sfConfig::get('app_culture_default','es'));
    $this->getUser()->setCulture('es');

    // sorting
    if ($request->getParameter('sort') && $this->isValidSortColumn($request->getParameter('sort')))
    {
      $this->setSort(array($request->getParameter('sort'), $request->getParameter('sort_type')));
    }

    // pager
    if ($request->getParameter('page'))
    {
      $this->setPage($request->getParameter('page'));
    }
    $this->pager = $this->getPager();
    $this->sort = $this->getSort();
    
    //Intento para filtros con formularios embebidos de symfony
    //$this->filter = new MailingFormFilter();
  }

  public function executeFilter(sfWebRequest $request)
  {
    $this->setPage(1);

    if ($request->hasParameter('_reset'))
    {
      $this->setFilters(array());
      $this->redirect('@mailing');
    }

    $this->filters = new MailingFormFilter($this->getFilters());
    $this->filters->bind($request->getParameter($this->filters->getName()));
    if ($this->filters->isValid())
    {
      $this->setFilters($this->filters->getValues());
      $this->redirect('@mailing');
    }

    $this->pager = $this->getPager();
    $this->sort = $this->getSort();

    $this->setTemplate('index');
  }

  public function executeNew(sfWebRequest $request)
  {
        $today = date("Y-m-d");
        $this->form = new MailingForm();
        $this->form->setDefault('fecha_creacion', $today);
        $this->form->setDefault('fecha_lanzamiento', $today);

  }

  public function executeCreate(sfWebRequest $request)
  {
        $this->forward404Unless($request->isMethod(sfRequest::POST));
        $this->form = new MailingForm();

        $this->processForm($request, $this->form);
        $this->setTemplate('new');
  }
  
  public function executeEnviaMailing(sfWebRequest $request)
  {
        $today = date("Y-m-d");
        $this->form = new MailingForm();
        $this->form->setDefault('fecha_creacion', $today);
        $this->form->setDefault('fecha_lanzamiento', $today);
        $this->form->setDefault('grupo_id', $request->getParameter('id'));

        $this->setTemplate('new');
  }


  public function executeEdit(sfWebRequest $request)
  {
    $this->forward404Unless($mailing = Doctrine_Core::getTable('Mailing')->find(array($request->getParameter('id'))), sprintf('Object mailing does not exist (%s).', $request->getParameter('id')));
    //$empresa_id = $this->getUser()->getAttribute('empresa_id');
    // Coloco esto de momento porque no coge la variable de usuario
    //$empresa_id = 1; //BORRAR *************************************** EN FUTURAS VERSIONES
    $this->form = new MailingForm($mailing);
    // Cambiamos el campo empresa_id
    //$this->form->setWidget('empresa_id', new sfWidgetFormInputHidden(array('default' => $empresa_id)));
    //$this->form->setWidget('publico', new sfWidgetFormInputCheckbox(array('value_attribute_value' => '1',
    //'default' => true)));
    //$this->form->setWidget('empresa_cli_id', new sfWidgetFormInputHidden(array('default' => $empresa_id)));
    
    // Si ya se han creado facturas no se podrá modificar el CIF del cliente.
    //if ($this->tieneFacturas($mailing)){
    //     $this->form->setWidget('dni', new sfWidgetFormInput(array('default' => $mailing->getDNI()),array('readonly'=>'readonly')));
    //}
    

  }
  
      

  public function executeShow(sfWebRequest $request)
  {
    $this->forward404Unless($this->mailing = Doctrine_Core::getTable('Mailing')->find(array($request->getParameter('id'))), sprintf('Object mailing does not exist (%s).', $request->getParameter('id')));
    $this->grupo = $this->mailing->getGrupo();
    //Tomo la variable para poder mostrar el campo texto con formato html
    $this->texto = $this->mailing->getTexto(); 
  }

  
  public function executeUpdate(sfWebRequest $request)
  {
    
    $this->forward404Unless($request->isMethod(sfRequest::POST) || $request->isMethod(sfRequest::PUT));
    $this->forward404Unless($mailing = Doctrine_Core::getTable('Mailing')->find(array($request->getParameter('id'))), sprintf('Object mailing does not exist (%s).', $request->getParameter('id')));
    $this->form = new MailingForm($mailing);
    $this->processForm($request, $this->form);

    $this->setTemplate('edit');
  }

   
  /*
   * Este método elimina un mailing, solo si este no tiene documentos asociados (partes, presupuestos o facturas)
   * En caso contrario, lo marca para que no se muestre, pero seguirá en la BD.
   */
  public function executeDelete(sfWebRequest $request)
  {
    $request->checkCSRFProtection();
    $this->forward404Unless($mailing = Doctrine_Core::getTable('Mailing')->find(array($request->getParameter('id'))), sprintf('Object mailing does not exist (%s).', $request->getParameter('id')));
    $mailing->delete();
    
    $this->getUser()->setFlash('notice', sfContext::getInstance()->getI18n()->__('Mailing eliminado.'));
    $this->redirect('mailing/index');
  }

  public function executeImprimir(sfWebRequest $request)
  {
  	// Recogemos los datos del vehiculo
  	$this->forward404Unless($mailing = Doctrine_Core::getTable('Mailing')->find(array($request->getParameter('id'))), sprintf('Object crm_vehiculo does not exist (%s).', $request->getParameter('id')));
  	
  	
  	//Cargamos los datos del pdf
  	$config = sfTCPDFPluginConfigHandler::loadConfig();
  	// pdf object
  	$pdf = new sfTCPDF();
  	
  	// Variables para generar el documento pdf
  	$titulo = sfContext::getInstance()->getI18n()->__('Datos del Mailing'); 
  	$nombre= $mailing->getAsunto();
  	$hoy = $this->getUser()->getAttribute('hoy','Lunes');
  	
  	$saltoEncabezado = PDF_HEADER_STRING; 
  	//$nombre=strtoupper($nombre);
  	// set document information
  	$pdf->SetCreator(PDF_CREATOR);
  	$pdf->SetAuthor(PDF_AUTHOR);
  	$pdf->SetTitle($titulo);
  	$pdf->SetSubject($nombre);
  	$pdf->SetKeywords('acalio, innova, acatec, crm, desarrollo');
  	
  	
  	// set default header data
  	//$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE.' 001', PDF_HEADER_STRING);
  	$pdf->SetHeaderData('../../../../../web/'.sfConfig::get('pdf_imagenlogo'), PDF_HEADER_LOGO_WIDTH, 
  	         $titulo, $nombre.$saltoEncabezado.$hoy);
  	
  	// set header and footer fonts
  	$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
  	$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
  	
  	// set default monospaced font
  	$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
  	
  	//set margins
  	$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
  	$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
  	$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
  	
  	//set auto page breaks
  	$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
  	
  	//set image scale factor
  	$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
  	
  	// ---------------------------------------------------------
  	
  	// set default font subsetting mode
  	$pdf->setFontSubsetting(true);
  	
  	// Set font
  	// dejavusans is a UTF-8 Unicode font, if you only need to
  	// print standard ASCII chars, you can use core fonts like
  	// helvetica or times to reduce file size.
  	$pdf->SetFont('dejavusans', '', 8, '', true);
    
  	// Add a page
  	// This method has several options, check the source code documentation for more information.
  	$pdf->AddPage();
  	
  	$grupo = $mailing->getGrupo();
        //$clientes = $grupo->getContactos();
        
  	// Set some content to print
  	$pdf->SetFont('dejavusans', '', 12, '', true);
        $html = $grupo->imprimeToPdf();
        $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $html, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);
  	
        $pdf->SetFont('dejavusans', '', 6, '', true);
        //$html = $clientes->getFirst()->imprimeTablaClientesToPdf($clientes);
        //$pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $html, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);
        
        if (!$grupo->is_validated){
            //Cojo los clientes del grupo y los paso a un array
            $clientes = $grupo->getContactos()->toArray(); 
         }else{ 
            if ($grupo->getNombre() == "sinidioma" ){
                $clientes = Doctrine::getTable('Contacto')
                            ->createQuery('c1')
                            ->where('c1.idioma IS NULL')
                            ->execute();
            }
            elseif ($grupo->getNombre() == "español y sin idioma" ){
                    $idioma = "español";
                    $clientes = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma IS NULL')
                                ->orWhere('c1.idioma = ?', $idioma)
                                ->execute();
            }
            else{
                $clientes = Doctrine::getTable('Contacto')
                            ->createQuery('c1')
                            ->where('c1.idioma = ?',$grupo->getNombre())
                            ->execute();
            }    
            $clientes = $clientes->toArray();
         }   
  
         //Calculo el número de páginas necesarias
         $numero_clientes = count($clientes);
         $maximo_primera = sfConfig::get('app_impresion_max_filas_pagina2');
         $maximo_pagina = sfConfig::get('app_impresion_max_filas_pagina');
         if($numero_clientes<=$maximo_primera){ //Si me caben en la primera página
             $paginas = 1;             
         }
         else{ //Si debo utilizar más páginas entera para los listados
             $paginas = (($numero_clientes-$maximo_primera)/$maximo_pagina)+1; // +1 por la primera página
             if ((($numero_clientes-$maximo_primera)%$maximo_pagina)!=0){ //Para la última página
                 $paginas = $paginas +1; //+1 por la última que tendrá el resto de la división
             }            
         }
         
         if ($numero_clientes>0){
                //$html = $clientes->getFirst()->imprimeTablaClientesToPdf($clientes);
                //Voy imprimiendo cada bloque de clientes en una página                
                //Indico además de los clientes, la página por la que voy para que imprima los clientes que corresponden a ese bloque
                //Para la primera página
                $i = 1;
                $html = $this->imprimeTablaClientesToPdf($clientes,$i);            
                // Print text using writeHTMLCell()
                $pdf->writeHTML($html, true, false, false, false, '');
                for ($i =2; $i<=$paginas; $i++){
                    // Add a page
                    // This method has several options, check the source code documentation for more information.
                    $pdf->AddPage();
                    //Indico además de los clientes, la página por la que voy para que imprima los clientes que corresponden a ese bloque
                    $html = $this->imprimeTablaClientesToPdf($clientes,$i);            
                    // Print text using writeHTMLCell()
                    $pdf->writeHTML($html, true, false, false, false, '');
                    // ---------------------------------------------------------
                }
          }
        
        //Calculo si cabe la información de mailing en la última página o debo crear una nueva
        $limite = sfConfig::get('app_impresion_limite_inferior_mailing'); 
        //if ((($numero_clientes-$maximo_primera)%$maximo_pagina)> $limite){ //Para la última página
          // $pdf->AddPage();
        //} 
        if ($pdf->GetY() > $limite){ //Para la última página
                 $pdf->AddPage();
        } 
        
        // Set some content to print
  	$pdf->SetFont('dejavusans', '', 8, '', true);
        $html = $mailing->imprimeToPdf();
	$pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $html, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);          	
  	// ---------------------------------------------------------
        
        // ---------------------------------------------------------
        // Modificación FEBRERO 2013, Incluyo el pie y la LOPD en la impresión de los mailings.
  	//Obtengo el fichero con el html de la firma
        $nombre_fichero = sfConfig::get('app_email_fichfirmaCarta');
        $fichero_texto = fopen ($nombre_fichero, "r");
        
        //obtenemos de una sola vez todo el contenido del fichero
        //OJO! Debido a filesize(), sólo funcionará con archivos de texto
        $pie = fread($fichero_texto, filesize($nombre_fichero));
        // Firma
        $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $pie, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);
            
        //Escribo el pie LOPD con el idioma ESPAÑOL
        $nombre_fichero_lopd = sfConfig::get('app_email_fichpie_ES_Carta');          
        $fichero_lopd = fopen ($nombre_fichero_lopd, "r");
        $lopd = fread($fichero_lopd, filesize($nombre_fichero_lopd)); 
        $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $lopd, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);                    
        
  	// Close and output PDF document
  	// This method has several options, check the source code documentation for more information.
  	$pdf->Output($nombre.'.pdf', 'I');
  	// Stop symfony process
  	throw new sfStopException();
  	
  }
  
  protected function imprimeMailing(Mailing $mailing){
  	sfContext::getInstance()->getConfiguration()->loadHelpers('Date');
  	$html= '<div>'.
  	'<h2> Datos del mailing </h2>'.
  	'<span style="font-weight: bold;">Nombre: </span>'.
  	'<span>'.$cliente->getNombre().' '.$cliente->getApellidos().'</span><br />'.
  	'<span style="font-weight: bold;">DNI: </span>'.
  	'<span>'.$mailing->getDni().'</span><br />'.
  	'<span style="font-weight: bold;">Dirección: </span>'.
  	'<span>'.$cliente->getDomicilio().' ('.$cliente->getPoblacion().')</span><br />';
  	
        //Imprimo la lista de telefonos
        $numtel = 1;
        foreach ($cliente->getMailingTelefono() as $telefono){        
            $html= $html.'<span style="font-weight: bold;">Telefono '.$numtel.': </span>'.
            '<span>'.$telefono->getTelefono().' - '. $telefono->getTipo().'</span><br />';            
            $numtel++;
        }        
        
        $numemail = 1;
        //Imprimo la lista de emails
        foreach ($cliente->getMailingEmail() as $email){        
            $html= $html.'<span style="font-weight: bold;">Email '.$numemail.': </span>'.
            '<span>'.$email->getEmail().' - '. $email->getTipo().'</span><br />';            
            $numemail++;
        }        
        
        $html= $html.
        '<span style="font-weight: bold;">Fecha de nacimiento: </span>'.                
  	'<span>'.$cliente->getFechaNac().'</span><br />'.
  	'<span style="font-weight: bold;">Web: </span>'.
  	'<span>'.$cliente->getWebPersonal().'</span><br />'.
  	'<span style="font-weight: bold;">Descripción: </span>'.
  	'<span>'.$cliente->getDescripcion().'</span><br />'.
  	'</div>';
  	return $html;
  }
  
     
  public function executeBatch(sfWebRequest $request)
  {
    $request->checkCSRFProtection();
    if (!$action = $request->getParameter('batch_action'))
    {
      $this->getUser()->setFlash('error', sfContext::getInstance()->getI18n()->__('You must select an action to execute on the selected items.'));
      $this->redirect('@mailing');
    }
    if (!$ids = $request->getParameter('ids'))
    {
      if ($action == 'batchPrint')  // Le hemos dado a imprimir pero sin seleccionar nada. IMPRIMIR TODO
      {
    	if (!method_exists($this, $method = 'execute'.ucfirst($action)))
    	{
        	throw new InvalidArgumentException(sprintf('You must create a "%s" method for action "%s"', $method, $action));
    	}
    	// execute batch executeBachPrint sin ids
      	$this->$method($request);
      }
      $this->getUser()->setFlash('error',sfContext::getInstance()->getI18n()->__('You must at least select one item.'));

      $this->redirect('@mailing');
    }

    if (!method_exists($this, $method = 'execute'.ucfirst($action)))
    {
      throw new InvalidArgumentException(sprintf('You must create a "%s" method for action "%s"', $method, $action));
    }

    $validator = new sfValidatorDoctrineChoice(array('multiple' => true, 'model' => 'Mailing'));
    try
    {
      // validate ids
      $ids = $validator->clean($ids);

      // execute batch
      $this->$method($request);
    }
    catch (sfValidatorError $e)
    {
      $this->getUser()->setFlash('error',sfContext::getInstance()->getI18n()->__('A problem occurs when deleting the selected items as some items do not exist anymore.'));
    }

    $this->redirect('@mailing');
  }
  
  protected function executeBatchDelete(sfWebRequest $request)
  {
    $ids = $request->getParameter('ids');
    $records = Doctrine_Query::create()
      ->from('Mailing')
      ->whereIn('id', $ids)
      ->execute();
    foreach ($records as $mailing){
        $mailing->delete();
    }
    $this->getUser()->setFlash('notice', sfContext::getInstance()->getI18n()->__('Los mailings marcados han sido eliminados.'));
    $this->redirect('@mailing');
  }
  
  protected function executeBatchPrint(sfWebRequest $request)
  {

	if (!$ids = $request->getParameter('ids')){  
                // Imprime los que pertenezcan al filtro
                $records = $this->buildQuery()->execute();
	} else {   // imprime solo los ids selecionados
		$records = Doctrine_Query::create()
                            ->from('Mailing')
                            ->whereIn('id', $ids)
                            ->execute();
	}

    	//Cargamos los datos del pdf
	$config = sfTCPDFPluginConfigHandler::loadConfig();
	// pdf object
	$pdf = new sfTCPDF();
	 
	// Variables para generar el documento pdf
	$titulo = sfContext::getInstance()->getI18n()->__('Lista de Mailings');
	$hoy = $this->getUser()->getAttribute('hoy','Lunes');
	 
	$saltoEncabezado = PDF_HEADER_STRING;
	// set document information
	$pdf->SetCreator(PDF_CREATOR);
	$pdf->SetAuthor(PDF_AUTHOR);
	$pdf->SetTitle($titulo);
	$pdf->SetSubject($titulo);
	$pdf->SetKeywords('acalio, innova, acatec, crm, desarrollo');
	 
	 
	// set default header data
	$pdf->SetHeaderData('../../../../../web/'.sfConfig::get('pdf_imagenlogo'), PDF_HEADER_LOGO_WIDTH,
	$titulo, $saltoEncabezado.$hoy);
	 
	// set header and footer fonts
	$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
	$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
	 
	// set default monospaced font
	$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
	 
	//set margins
	$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
	$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
	$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
	 
	//set auto page breaks
	$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
	 
	//set image scale factor
	$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
	 
	// ---------------------------------------------------------
	 
	// set default font subsetting mode
	$pdf->setFontSubsetting(true);
	 
	// Set font
	// dejavusans is a UTF-8 Unicode font, if you only need to
	// print standard ASCII chars, you can use core fonts like
	// helvetica or times to reduce file size.
	$pdf->SetFont('dejavusans', '', 8, '', true);
	 
		 
	
	 
	// Set some content to print
	foreach ($records as $mailing)
        {   
            // Add a page por cada mailing impreso
            $pdf->AddPage();
            
            $grupo = $mailing->getGrupo();
            //$clientes = $grupo->getContactos();
            
            // Set some content to print
            $pdf->SetFont('dejavusans', '', 12, '', true);
            $html = $grupo->imprimeToPdf();
            $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $html, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);
            
            $pdf->SetFont('dejavusans', '', 6, '', true);                        
            
            if (!$grupo->is_validated){
                //Cojo los clientes del grupo y los paso a un array
                $clientes = $grupo->getContactos()->toArray(); 
            }else{              
                if ($grupo->getNombre() == "sinidioma" ){
                    $clientes = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma IS NULL')
                                ->execute();
                }
                elseif ($grupo->getNombre() == "español y sin idioma" ){
                    $idioma = "español";
                    $clientes = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma IS NULL')
                                ->orWhere('c1.idioma = ?', $idioma)
                                ->execute();
                }
                else{
                    $clientes = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma = ?',$grupo->getNombre())
                                ->execute();
                }
                $clientes = $clientes->toArray();
            }   
            
            //Calculo el número de páginas necesarias
            $numero_clientes = count($clientes);
            $maximo_primera = sfConfig::get('app_impresion_max_filas_pagina2');
            $maximo_pagina = sfConfig::get('app_impresion_max_filas_pagina');
            if($numero_clientes<=$maximo_primera){ //Si me caben en la primera página
                $paginas = 1;             
            }
            else{ //Si debo utilizar más páginas entera para los listados
                $paginas = (($numero_clientes-$maximo_primera)/$maximo_pagina)+1; // +1 por la primera página
                if ((($numero_clientes-$maximo_primera)%$maximo_pagina)!=0){ //Para la última página
                    $paginas = $paginas +1; //+1 por la última que tendrá el resto de la división
                }            
            }
        
            if ($numero_clientes>0){                    
                    //Voy imprimiendo cada bloque de clientes en una página                
                    //Indico además de los clientes, la página por la que voy para que imprima los clientes que corresponden a ese bloque
                    //Para la primera página
                    $i = 1;
                    $html = $this->imprimeTablaClientesToPdf($clientes,$i);            
                    // Print text using writeHTMLCell()
                    $pdf->writeHTML($html, true, false, false, false, '');
                    for ($i =2; $i<=$paginas; $i++){
                        // Add a page
                        // This method has several options, check the source code documentation for more information.
                        $pdf->AddPage();
                        //Indico además de los clientes, la página por la que voy para que imprima los clientes que corresponden a ese bloque
                        $html = $this->imprimeTablaClientesToPdf($clientes,$i);            
                        // Print text using writeHTMLCell()
                        $pdf->writeHTML($html, true, false, false, false, '');
                        // ---------------------------------------------------------
                    }
            }                                   

            //Calculo si cabe la información de mailing en la última página o debo crear una nueva
            $limite = sfConfig::get('app_impresion_limite_inferior_mailing');             
            if ($pdf->GetY() > $limite){ //Para la última página
                 $pdf->AddPage();
            }   
            
            // Set some content to print
            $pdf->SetFont('dejavusans', '', 12, '', true);
            $html = $mailing->imprimeToPdf();
            $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $html, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);
            
        }
            
        // ---------------------------------------------------------	 
	// Close and output PDF document
	// This method has several options, check the source code documentation for more information.
	$pdf->Output($titulo.'.pdf', 'I');
	// Stop symfony process
	throw new sfStopException();
  }
  
  /*
   * Modificar margenes para escribir destinatario y texto si no se ajusta a lo deseado
   */
  protected function executeBatchLetter(sfWebRequest $request)
  {     
        $ids = $request->getParameter('ids');
	$records = Doctrine_Query::create()
                        ->from('Mailing')
                        ->whereIn('id', $ids)
                        ->execute();
	
        //Cargamos los datos del pdf
  	$config = sfTCPDFPluginConfigHandler::loadConfig();
  	// pdf object creado para configurar el pie de página del fichero firmaCarta.txt y el encabezado para las cartas  	
        $pdf = new CARTAPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
        
	// Variables para generar el documento pdf
	$titulo = sfContext::getInstance()->getI18n()->__('Cartas');
	// remove default header/footer
        $pdf->setPrintHeader(true); //En el fichero mypdf2.php se establece lo que tendrá el encabezado        
        //No utilizo el pie, puesto que tengo que insertar también la LOPD que depende del cliente
        //por lo que el texto del pie lo inserto de forma manual, midiendo coordenadas (más abajo).
        $pdf->setPrintFooter(false); 
	// set document information
	$pdf->SetCreator(PDF_CREATOR);
	$pdf->SetAuthor(PDF_AUTHOR);
	$pdf->SetTitle($titulo);
	$pdf->SetSubject($titulo);
	$pdf->SetKeywords('acalio, innova, acatec, crm, desarrollo');
		 
	// set default monospaced font
	$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
	 
	//set margins
	$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
	$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
	$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
	 
	//set auto page breaks
	$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
	 
	//set image scale factor
	$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
	 
	// set default font subsetting mode
	$pdf->setFontSubsetting(true);
	 
	// Set font
	// dejavusans is a UTF-8 Unicode font, if you only need to
	// print standard ASCII chars, you can use core fonts like
	// helvetica or times to reduce file size.
	$pdf->SetFont('dejavusans', '', 8, '', true);       
                
        foreach ($records as $mailing){       
            //Cojo los destinatarios
            $grupo = $mailing->getGrupo();
            // Si no es un grupo del sistema cojo los contactos a través de la tabla intermedia
            if (!$grupo->is_validated){
                $contactos = $grupo->getContactos();                
            }
            else { // Si no, los cojo mirando su idioma
                if ($grupo->getNombre() == "sinidioma" ){
                    $contactos = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma IS NULL')
                                ->execute();
                }
                elseif ($grupo->getNombre() == "español y sin idioma" ){
                    $idioma = "español";
                    $contactos = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma IS NULL')
                                ->orWhere('c1.idioma = ?', $idioma)
                                ->execute();
                }
                else{
                    $contactos = Doctrine::getTable('Contacto')
                                    ->createQuery('c1')
                                    ->where('c1.idioma = ?',$grupo->getNombre())
                                    ->execute();                
                }     
            }  
            $contactos = $contactos->toArray();
            foreach ($contactos as $contacto){
                //Si no tiene email o está vacío y autoriza el envío
                if ((($contacto['email'] == NULL)||($contacto['email'] == ""))
                    && (($contacto['autoriza']) || ($contacto['autoriza'] == NULL))){
                    //Cogemos los datos para la dirección del destinatario de la carta
                    $destinatario = $contacto['nombre']." ".$contacto['primer_apellido']." ".$contacto['segundo_apellido']."<br/>";
                    $destinatario = $destinatario.$contacto['tipo_via']." ".$contacto['direccion']." ".$contacto['num_via']." ".
                                    $contacto['resto_via']." ".$contacto['piso']." ".$contacto['puerta']." ".$contacto['escalera']." ".$contacto['portal']."<br/>";
                    $destinatario = $destinatario.$contacto['cod_postal']." ".$contacto['municipio'];
                    if ($contacto['cod_postal'] != null) {
                        $destinatario = $destinatario." (".$contacto['provincia'].")";
                    }
                                        
                    $text = $mailing->getTexto();                    
                    // Reemplazamos los comodines en el texto
                    $text = str_replace("%nombre%", $contacto['nombre'], $text);
                    $text = str_replace("%primer_apellido%", $contacto['primer_apellido'], $text);
                    $text = str_replace("%segundo_apellido%", $contacto['segundo_apellido'], $text);
                    $text = str_replace("%sexo%", $contacto['sexo'], $text);
                    $text = str_replace("%dni%", $contacto['num_documento'], $text);
                    $text = str_replace("%fecha_nacimiento%", $contacto['fecha_nac'], $text);
                    $text = str_replace("%idioma%", $contacto['idioma'], $text);                                        
                    
                    //Creo el pdf con los datos
                    // Add a page por cada mailing impreso
                    $pdf->AddPage();
                    // Set some content to print
                    $pdf->SetFont('dejavusans', '', 10, '', true);
                    $pdf->writeHTMLCell($w=0, $h=0, $x='100', $y='', $destinatario, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);                    
                    $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='70', $text, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);                    

                    //Obtengo el fichero con el html de la firma
                    $nombre_fichero = sfConfig::get('app_email_fichfirmaCarta');
                    $fichero_texto = fopen ($nombre_fichero, "r");
                    //obtenemos de una sola vez todo el contenido del fichero
                    //OJO! Debido a filesize(), sólo funcionará con archivos de texto
                    $pie = fread($fichero_texto, filesize($nombre_fichero));
                    
                    // Firma
                    //Miro si cabe
                    $posicion = $pdf->GetY();
                    if ($posicion >= 220){
                        $pdf->AddPage();
                    }
                    $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='220', $pie, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);
                                        
                    //Escribo el pie LOPD
                    //Leo el fichero de pie LOPD según el idioma del cliente
                    $idioma = strtoupper($contacto['idioma']);
                    if ( $idioma == "SUECO"){
                        $nombre_fichero_lopd = sfConfig::get('app_email_fichpie_SW_Carta');          
                    }
                    else {
                        if ( $idioma == "INGLéS"){ //Al pasarlo a mayúsculas se convierte en INGLéS       
                           $nombre_fichero_lopd = sfConfig::get('app_email_fichpie_EN_Carta');          
                        }    
                        else{ //Por defecto supongo español
                           $nombre_fichero_lopd = sfConfig::get('app_email_fichpie_ES_Carta');          
                        }
                    }          
                    $fichero_lopd = fopen ($nombre_fichero_lopd, "r");
                    $lopd = fread($fichero_lopd, filesize($nombre_fichero_lopd)); 
                    $pdf->writeHTMLCell($w=0, $h=0, $x='', $y='', $lopd, $border=0, $ln=1, $fill=0, $reseth=true, $align='', $autopadding=true);                    
                 }
              }
        }            
        // Close and output PDF document
        // This method has several options, check the source code documentation for more information.
        $pdf->Output($titulo.'.pdf', 'I');
        // Stop symfony process
        throw new sfStopException();        
  }
  
  
  protected function enviaMailingInstantaneo(Mailing $mailing)
  {     
      $from = sfConfig::get('app_email_remiteMail');
      $nombre = sfConfig::get('app_email_remiteNombre');
      
      //Cojo los destinatarios
      $grupo = $mailing->getGrupo();
      // Si no es un grupo del sistema cojo los contactos a través de la tabla intermedia
      if (!$grupo->is_validated){
          $contactos = $grupo->getContactos();
      }
      else { // Si no, los cojo mirando su idioma
            if ($grupo->getNombre() == "sinidioma" ){
                $contactos = Doctrine::getTable('Contacto')
                            ->createQuery('c1')
                            ->where('c1.idioma IS NULL')
                            ->execute();
            }
            elseif ($grupo->getNombre() == "español y sin idioma" ){
                 $idioma = "español";
                 $contactos = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma IS NULL')
                                ->orWhere('c1.idioma = ?', $idioma)
                                ->execute();
            }
            else{
                $contactos = Doctrine::getTable('Contacto')
                                ->createQuery('c1')
                                ->where('c1.idioma = ?',$grupo->getNombre())
                                ->execute();
            }     
      }
      
      // Paso los contactos a un array      
      foreach ($contactos as $contacto){
          //Incluyo solo el email y no el nombre en un array asociativo, puesto que este puede repetirse.
          if ($contacto->getEmail() != NULL){
            $destinatarios [$contacto->getEmail()] = $contacto->getNombre()." ".$contacto->getPrimerApellido();
          } 
      }
      
      //Controlo si el grupo no tiene contactos
      if ($contactos == NULL){
          return 1; //CREO QUE NO FUNCIONA, DEPURAR!!!!
      }
      //$to = $notificacion->getContacto()->getEmail();      
      //$toNombre = $notificacion->getContacto()->getNombre()." ".$notificacion->getContacto()->getPrimerApellido();
      
      $subject = $mailing->getAsunto();
      $text = $mailing->getTexto();
      
      $message = $this->getMailer()->compose();
      $message->setSubject($subject);      
      $message->setBcc($destinatarios);
      $message->setFrom(array ($from => $nombre));
      $message->setBody($text, 'text/html');      
                  
      // Añado los adjuntos si existen.
      if ($mailing->getAdjunto1()!= NULL){
          $message->attach(Swift_Attachment::fromPath(sfConfig::get('app_email_attachments').$mailing->getAdjunto1())
                  ->setFileName($mailing->getAdjuntoOriginal1())); //cambiamos el nombre del adjunto.
      }
      if ($mailing->getAdjunto2()!= NULL){
          $message->attach(Swift_Attachment::fromPath(sfConfig::get('app_email_attachments').$mailing->getAdjunto2())
                  ->setFileName($mailing->getAdjuntoOriginal2()));
      }

      //Lo enviamos si es instantaneo, en lugar de encolarlo.
      $this->getMailer()->sendNextImmediately()->send($message);
      return 0;
  }
  
  protected function processForm(sfWebRequest $request, sfForm $form)
  {
    $form->bind($request->getParameter($form->getName()), $request->getFiles($form->getName()));
    if ($form->isValid())
    { 
      $mailing = $form->save();
      //Añado los nombres originales de los adjuntos
      $mailing->setAdjuntoOriginal1($_FILES['mailing']['name']['adjunto1']); //FILES[notificacion][name][adjunto1]
      $mailing->setAdjuntoOriginal2($_FILES['mailing']['name']['adjunto2']);
      $mailing->save();
      
      /* Para el caso del mailing no es conveniente que se mande de forma inmediata, en cualquier
       * caso es mejor guardarlo en BBDD y encolarlo mediante tareas cron, para que no ralentice el
       * sistema
       */
      
      /*
      // Envío el mail de momento de forma instantánea si la fecha de lanzamiento es hoy.
      $today = date("Y-m-d");
      
      if ($mailing->getFechaLanzamiento() == $today){        
        $error = $this->enviaMailingInstantaneo($mailing);        
        if ($error){
            $this->getUser()->setFlash('notice', sfContext::getInstance()->getI18n()->__('El grupo no tiene contactos'));
        }
        else{
            //Lo marco como enviado
            $mailing->is_validated= TRUE;
            $mailing->save();        
            $this->getUser()->setFlash('notice', sfContext::getInstance()->getI18n()->__('El mailing ha sido enviado'));
        }    
      }  
      else{
        $this->getUser()->setFlash('notice', sfContext::getInstance()->getI18n()->__('El mailing ha sido guardado'));
      }*/

      $this->getUser()->setFlash('notice', sfContext::getInstance()->getI18n()->__('El mailing ha sido guardado'));
      $this->redirect('mailing/index');
    }    
  }

  protected function getFilters()
  {
    return $this->getUser()->getAttribute('mailing.filters');
  }

  protected function setFilters(array $filters)
  {
    return $this->getUser()->setAttribute('mailing.filters', $filters);
  }

  protected function getPager()
  {
    //Obtengo el número de mailings a mostrar de la base de datos (tabla CrmConfiguracion)
    // PASAR A TODOS LO MÓDULOS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   
    $campo = "numRegistros";
    $q = Doctrine_Query::create()
    ->select('valor')
    ->from('Configuracion c1')
    ->where('c1.campo = ?',$campo);
    $numelementos = $q->fetchOne(array(), Doctrine_Core::HYDRATE_SINGLE_SCALAR);
      
    $pager = new sfDoctrinePager('Mailing', $numelementos);      
    // Ya no lo hacemos por la configuración de symfony, para que el usuario pueda modificarlo.  
    //$pager = new sfDoctrinePager('Mailing', sfConfig::get('app_list_max_mailings'));
    $pager->setQuery($this->buildQuery());
    $pager->setPage($this->getPage());
    $pager->init();

    return $pager;
  }

  protected function setPage($page)
  {
    $this->getUser()->setAttribute('mailing.page', $page);
  }

  protected function getPage()
  {
    return $this->getUser()->getAttribute('mailing.page', 1);
  }

  protected function buildQuery()
  {
    $tableMethod = 'Mailing';
    $filterValues = $this->getFilters();
    $this->valores = $filterValues;
    $borrado = 1;
    //create a default query donde no muestro los marcados para borrar
    $query = Doctrine_Core::getTable('Mailing')->createQuery('p')->where('p.remove_it <> ?',$borrado)
            ->orWhere('p.remove_it IS NULL');//->andWhere('p.mailing_categoria_id = 2');
    
    if (null === $this->filtro)
    {
      $this->filtro = new MailingFormFilter($filterValues);
    }

    //if the form have been submited
    if($filterValues){
      //bind the values
      $this->filtro->bind($filterValues);
      //if valid, specialise the request using the form
      if($this->filtro->isValid())
         $query = $this->filtro->getQuery();
         //Añado condiciones para que en las búsquedas no se muestren los elementos marcados para borrado
         $query->andWhere($query->getRootAlias().'.remove_it IS NULL OR '.$query->getRootAlias().'.remove_it <> ?',$borrado);
    }    //$query->andWhere($query->getRootAlias().'.mailing_categoria_id = 2');

    $this->addSortQuery($query);

    $event = $this->dispatcher->filter(new sfEvent($this, 'crm.build_query'), $query);
    $query = $event->getReturnValue();

    return $query;
  }

  protected function addSortQuery($query)
  {
    if (array(null, null) == ($sort = $this->getSort()))
    {
      return;
    }

    if (!in_array(strtolower($sort[1]), array('asc', 'desc')))
    {
      $sort[1] = 'asc';
    }

    $query->addOrderBy($sort[0] . ' ' . $sort[1]);
  }

  protected function getSort()
  {
    if (null !== $sort = $this->getUser()->getAttribute('mailing.sort'))
    {
      return $sort;
    }

    $this->setSort(array('id',sfConfig::get('app_sort_default','asc')));

    return $this->getUser()->getAttribute('mailing.sort');
  }

  protected function setSort(array $sort)
  {
    if (null !== $sort[0] && null === $sort[1])
    {
      $sort[1] = 'asc';
    }

    $this->getUser()->setAttribute('mailing.sort', $sort);
  }

  protected function isValidSortColumn($column)
  {
    return Doctrine_Core::getTable('Mailing')->hasColumn($column);
  }
  
  /* Al realizar la impresión de array en lugar de objetos para que vaya más rápido
   * lo implemento en el action en lugar de en el modelo
   * Le paso todos los clientes en forma de array y la página por la que voy imprimiendo
   * para que coja el bloque de clientes que corresponda.
   */
  public function imprimeTablaClientesToPdf($clientes,$pagina){
        
  	// Set some content to print
	$html = 
	'<div><table border="1">
	    <tr style="background-color:#0000FF;color:#FFFFFF;">
                <th colspan="5" align="center"><b>Clientes</b></th>
            </tr>
	    <tr style="background-color:#0000FF;color:#FFFF00;text-align:center">
                <th align="center" style="width:8%"><b>Nombre</b></th>
                <th align="center" style="width:10%"><b>Apellidos</b></th>
                <th align="center" style="width:9%"><b>DNI</b></th>
                <th align="center" style="width:25%"><b>Dirección</b></th>
                <th align="center" style="width:12%"><b>Municipio</b></th>
                <th align="center" style="width:10%"><b>Teléfono</b></th>
                <th align="center" style="width:15%"><b>Email</b></th>
                <th align="center" style="width:5%"><b>Sexo</b></th>
                <th align="center" style="width:6%"><b>Idioma</b></th>
            </tr>';
 	
        //Calculo el primer cliente que debo coger, en función de la página.
	$ind=0; 
        $n_listados_combinados = sfConfig::get('app_impresion_max_filas_pagina2');
        $n_listados = sfConfig::get('app_impresion_max_filas_pagina');
                
        if ($pagina == 1){
            $maximo_pagina = $n_listados_combinados; //Colo el tamaño para listados combinados     
            $primero = 0; //El primero que cogeré será la posición 0 del array
        }        
        else{            
            $maximo_pagina = $n_listados; 
            //El elemento que debo coger primero, será según el máximo anterior
            $primero = $n_listados_combinados+($n_listados*($pagina-2));
        }
        
        for ($i=0; $i<$maximo_pagina; $i++)
        {   if ($primero<count($clientes)){ //Para no salirme de rango, porque la última página lo hará más veces de los clientes.
                $cliente = $clientes[$primero];
                $primero++;
                $ind=$ind+1;
                if (($ind % 2) == 0) {
                        $html= $html.'<tr style="background-color:#FFCCCC;">';
                }else{
                $html= $html.'<tr>';
                }
                $html=$html.
                        '<td align="center" valign="middle" style="width:8%">'.$cliente['nombre'].'</td>
                        <td align="center" valign="middle" style="width:10%">'.$cliente['primer_apellido'].' '.$cliente['segundo_apellido'].'</td>    
                        <td align="center" valign="middle" style="width:9%">'.$cliente['num_documento'].'</td>
                        <td align="center" valign="middle" style="width:25%">'.
                            $cliente['tipo_via'].' '.$cliente['direccion'].', '.$cliente['num_via'].', '.$cliente['resto_via'].
                            'Piso '.$cliente['piso'].', Puerta '.$cliente['puerta'].', Escalera '.$cliente['escalera'].', Portal '.$cliente['portal'].'</td>
                        <td align="center" valign="middle" style="width:12%">'.
                            $cliente['municipio'].' ('.$cliente['cod_postal'].') '.$cliente['provincia'].'</td>
                        <td align="center" valign="middle" style="width:10%">'.$cliente['telefono'].' '.$cliente['telefono2'].'</td>
                        <td align="center" valign="middle" style="width:15%">'.$cliente['email'].'</td>
                        <td align="center" valign="middle" style="width:5%">'.$cliente['sexo'].'</td>
                        <td align="center" valign="middle" style="width:6%">'.$cliente['idioma'].'</td>';    
                $html= $html.'</tr>';
            }   
        }
        $html=$html.'</table></div>';
      
    return $html;
  } 
  

}
